(ido-file-internal): Pass full file name to write-file.

diff --git a/lisp/ido.el b/lisp/ido.el
index efea9a9fbb964f58ebfc2e1eb0ec8f7033c160f6..08d5c91d203fb647646eb7ff934bc6c247be5662 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2339,7 +2339,7 @@ If INITIAL is non-nil, it specifies the initial input string."
        (setq default-directory ido-current-directory)
        (ido-record-command 'write-file (concat ido-current-directory filename))
        (ido-record-work-directory)
-       (write-file filename))
+       (write-file (concat ido-current-directory filename)))
 
        ((eq method 'read-only)
        (ido-record-work-file filename)